VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "DistortSines"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Public amplitude As Single
Public period As Single

' ************************************************
' Apply a shape distorting transformation to
' the point.
' ************************************************
Sub Distort(x As Single, y As Single)
Dim newx As Single
    
    newx = x + amplitude * Sin(y * 6.28 / period)
    y = y + amplitude * Sin(x * 6.28 / period)
    x = newx
End Sub
